Script not able to work on Server 2003

I have PERL scripst that I created on a Windows 2000 Server, that work
great. We switched to a Windows 2003 Server, PERL is installed, but my
script that works on 2000, will not work with the 2003 server. I keep
getting the following error on all my scripts:

"Content-type: text/html

'C:\Inetpub\wwwroot\cgi-bin\Employee_Status\employee_status. cgi'
script produced no output"

Plus, I have tried changing the extension to cgi, and I get the same
error.

Does anyone have any suggestions for me? I'm almost positive it is
something simple, but I am just not seeing it.

Re: Script not able to work on Server 2003

Joe wrote:
> I have PERL scripst that I created on a Windows 2000 Server, that work
> great. We switched to a Windows 2003 Server, PERL is installed, but my
> script that works on 2000, will not work with the 2003 server. I keep
> getting the following error on all my scripts:
>
> "Content-type: text/html
>
> 'C:\Inetpub\wwwroot\cgi-bin\Employee_Status\employee_status. cgi'
> script produced no output"
>
> Plus, I have tried changing the extension to cgi, and I get the same
> error.
>
> Does anyone have any suggestions for me? I'm almost positive it is
> something simple, but I am just not seeing it.


I'm almost positive it has nothing to do with Perl.

It likely has to do with web server configuration.

Ask in a newsgroup about web servers.


--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"

Re: Script not able to work on Server 2003

Good suggestion, but the one thing I forgot to mention is, another
person wrote scripts a few years ago, and those, basically work out of
the box. His and mine are somewhat identical, but his work and mine
don't.

I have check for differences in coding style, and some we are fairly
close and other note. The big difference from his and mine are that
most of his are links in .asp pages, mine are just straight links.

Possibly it has something to do with the way IIS is calling it. Most
of my scripts do not have much to do with IIS. I'm sorry I'm rabling,
I just been looking at this all weekend.

Re: Script not able to work on Server 2003

Joe wrote:
> Good suggestion, but the one thing I forgot to mention is, another
> person wrote scripts a few years ago, and those, basically work out of
> the box. His and mine are somewhat identical, but his work and mine
> don't.
>
> I have check for differences in coding style, and some we are fairly
> close and other note. The big difference from his and mine are that
> most of his are links in .asp pages, mine are just straight links.
>
> Possibly it has something to do with the way IIS is calling it. Most
> of my scripts do not have much to do with IIS. I'm sorry I'm rabling,
> I just been looking at this all weekend.
>

Write the output to a file and compare how many carriage returns does
your code and the the other person's code that works send after
Content-type: text/html ?

--

Len

Re: Script not able to work on Server 2003

On Oct 7, 3:23 pm, Joe wrote:
> Good suggestion, but the one thing I forgot to mention is, another
> person wrote scripts a few years ago, and those, basically work

Without seeing you coder and knowing how your web server is
configured, it's anyones guess as to the problem/solution.

> His and mine are somewhat identical, but his work ....
^^^^^^^^^^^^^^^^^^
That's probably the key. What's the difference between yours and his?

>
> I have check for differences in coding style, and some we are fairly
> close and other note. The big difference from his and mine are that
> most of his are links in .asp pages, mine are just straight links.

Show us your code. Style is just style, what it's doing is most
important. We may not be able to troubleshoot the asp side, but if we
see your Perl code, we may be able to find the problem/solution.
>
> Possibly it has something to do with the way IIS is calling it.
That may be the case, and if so, we'll probably direct you to posting
in an IIS forum, but without seeing your code, it's impossible to say.

Re: Script not able to work on Server 2003

Here is my code, I picked one of my shorter scripts:

#!/usr/bin/perl -w

# Joe Ruffino Daily WebOpac.pl
# This program will read in a text file, and print it out
# in table format
# Written: January 30, 2004
# Revised: December 09, 2004, Jan 03, 2005

use CGI qw(:standard :html3);
use CGI::Carp qw(fatalsToBrowser);
use strict;


############################################################ ##############
# Set Variables
#

my $ip_hold = 0;
my $sec;
my $min;
my $hour;
my $day;
my $month;
my $year;
my $ip_list;
my $monthfind;
my $monthm;
my $countip;

my $stationip;
my $stationname;

my @stationip;
my @stationname;

my $dayopac;
my $daym;
my $dayopacm;
my $dayfind;
my $headerpage;
my $dayflag;
my $namev;
my $one;
my $two;
my $three;
my $monthcurr;
my $monthnow;
my $countin;
my $countout;
my $ip;
my $date;
my $time;
my $firstp;
my $secondp;
my $thirdp;
my $fourthp;
my $firstip;
my @firstip;
my $sn;
my $count;
my $date_month;
my $date_day;
my $date_year;
my $i;
my $ips;
my @Names;
my %Names;
my $ext_ip;
my %seen;
my $countint;
my $totalcnt;
my $totalline;
my $station_name;
my @opacline;
my %count;
my @staionip;
my $line;
my $opac_month;
my $hold_date;
my $date_cnt;
my $ip_day_cnt;
my $day_array;
my $ip_day_cnt;
my $four;
my @ext_line;
my %day_array;
my %letters;
my $tot_ip_cnt;
my $ip_cnt;
my $four;

############################################################ ##############
# Subroutine for finding the text month when numerical month is given
#
sub dayfind {

#Setup date field
if ($dayopacm eq "01") {
$dayfind = "January"; }

if ($dayopacm eq "02") {
$dayfind = "February"; }

if ($dayopacm eq "03") {
$dayfind = "March"; }

if ($dayopacm eq "04") {
$dayfind = "April"; }

if ($dayopacm eq "05") {
$dayfind = "May"; }

if ($dayopacm eq "06") {
$dayfind = "June"; }

if ($dayopacm eq "07") {
$dayfind = "July"; }

if ($dayopacm eq "08") {
$dayfind = "August"; }

if ($dayopacm eq "09") {
$dayfind = "September"; }

if ($dayopacm eq "10") {
$dayfind = "October"; }

if ($dayopacm eq "11") {
$dayfind = "November"; }

if ($dayopacm eq "12") {
$dayfind = "December"; }
return $dayfind;
}

############################################################ ##############
# Subroutine for finding the numerical month when text month is given
#
sub monthfind {

#Setup date field
if ($monthm eq "Jan") {
$monthfind = "01"; }

if ($monthm eq "Feb") {
$monthfind = "02"; }

if ($monthm eq "Mar") {
$monthfind = "03"; }

if ($monthm eq "Apr") {
$monthfind = "04"; }

if ($monthm eq "May") {
$monthfind = "05"; }

if ($monthm eq "Jun") {
$monthfind = "06"; }

if ($monthm eq "Jul") {
$monthfind = "07"; }

if ($monthm eq "Aug") {
$monthfind = "08"; }

if ($monthm eq "Sep") {
$monthfind = "09"; }

if ($monthm eq "Oct") {
$monthfind = "10"; }

if ($monthm eq "Nov") {
$monthfind = "11"; }

if ($monthm eq "Dec") {
$monthfind = "12"; }
return $monthfind;
}

############################################################ ##############
# Find current Time and Date info
#
($sec,$min,$hour,$day,$month,$year) = localtime(time);
$year = $year +1900;

# ignore used for testing
$ip_list = "OpacIP";
# ignore used for testing

############################################################ ##############
# Open IP file and test data file
# Then split IP file into IP address and Station Name array's
#
open (LISTIN,"ipnew.txt") || die "Cannot Open File ipadd.txt for
reading: $!";

while () {
($staionip[$countip], $stationname[$countip]) = split(/\s+/);
$countip++;
}

$stationip = @stationip;
$stationname = $stationname;

close (LISTIN);


############################################################ ##############
# If a file name has been given, process the file
#

$line = 0;
if (param()) {

# Set filename entered to a variable
my $dayopac = param("dayopac");

# Split file name into month and day by assuming a dash is there
($dayopacm, $daym) = split(/-/, $dayopac);
if ($daym) { # if there is a 2-digit day
$dayflag = "yes";

# find the text month by sending the 2-digit month
$monthfind = dayfind($dayopacm);
if ($monthfind eq "December") {
#$year = $year -1;
}
$headerpage = "Daily Stats for " . $monthfind . " " . $daym . ",
" . $year;
} else {

# if not a day to be procressed, check to see if it is a month
to
# be processed
$dayflag = "no";
$daym = "01";

# Split file name into process name and month by assuming an
# underscore is there
($namev, $monthm) = split(/_/, $dayopac);

# find the 2-digit month by sending the text month
$monthcurr = monthfind($monthm);

# if current month is equal to the month entered
if ($month eq $monthcurr) { # if it is 1 - 9
if ($month > 9) {
$dayopacm = $month; # set current month to month holder
} else {
# set current month to month holder and append a '0
$dayopacm = "0" . $month;
}
} else {
# if not equal set month entered to month holder
$dayopacm = $monthcurr;
}
# Go to subroutine to find the FULL text month
$monthnow = dayfind($dayopacm);
if ($monthnow eq "December") {
$year--;
}
($one, $two, $three, $four) = split(/\\/, $dayopac);

# Set title for HTML Output page using text month that was found
$headerpage = "Monthly Stats for $monthnow $year";
}

$ip_list .= "_" . $monthm .".txt";
open (OPAC_IP, ">$ip_list") || die "$ip_list open failed: $!";

$opac_month = $dayopac . "_" . $year . ".html";
open (OPAC_WEB, ">$opac_month") || die "$ip_list open failed: $!";

# Append .txt to filename given, and open file for reading
$dayopac .= ".txt";
open (OPAC,$dayopac) || die ($dayopac . " open failed: $!");

# Print title on new HTML page and first line
print OPAC_WEB <